submodule_cos_real64.f90 Source File


Source Code

submodule (taylor_series_fortran) imp_taylor_series_cos_real64

    implicit none


    real(real64), parameter :: coefficient000 =   1.0_real64
    real(real64), parameter :: coefficient001 =   0.0_real64
    real(real64), parameter :: coefficient002 = - coefficient000 / (  1 *   2)
    real(real64), parameter :: coefficient003 =   0.0_real64
    real(real64), parameter :: coefficient004 = - coefficient002 / (  3 *   4)
    real(real64), parameter :: coefficient005 =   0.0_real64
    real(real64), parameter :: coefficient006 = - coefficient004 / (  5 *   6)
    real(real64), parameter :: coefficient007 =   0.0_real64
    real(real64), parameter :: coefficient008 = - coefficient006 / (  7 *   8)
    real(real64), parameter :: coefficient009 =   0.0_real64
    real(real64), parameter :: coefficient010 = - coefficient008 / (  9 *  10)
    real(real64), parameter :: coefficient011 =   0.0_real64
    real(real64), parameter :: coefficient012 = - coefficient010 / ( 11 *  12)
    real(real64), parameter :: coefficient013 =   0.0_real64
    real(real64), parameter :: coefficient014 = - coefficient012 / ( 13 *  14)
    real(real64), parameter :: coefficient015 =   0.0_real64
    real(real64), parameter :: coefficient016 = - coefficient014 / ( 15 *  16)
    real(real64), parameter :: coefficient017 =   0.0_real64
    real(real64), parameter :: coefficient018 = - coefficient016 / ( 17 *  18)
    real(real64), parameter :: coefficient019 =   0.0_real64
    real(real64), parameter :: coefficient020 = - coefficient018 / ( 19 *  20)
    real(real64), parameter :: coefficient021 =   0.0_real64
    real(real64), parameter :: coefficient022 = - coefficient020 / ( 21 *  22)
    real(real64), parameter :: coefficient023 =   0.0_real64
    real(real64), parameter :: coefficient024 = - coefficient022 / ( 23 *  24)
    real(real64), parameter :: coefficient025 =   0.0_real64
    real(real64), parameter :: coefficient026 = - coefficient024 / ( 25 *  26)
    real(real64), parameter :: coefficient027 =   0.0_real64
    real(real64), parameter :: coefficient028 = - coefficient026 / ( 27 *  28)
    real(real64), parameter :: coefficient029 =   0.0_real64
    real(real64), parameter :: coefficient030 = - coefficient028 / ( 29 *  30)
    real(real64), parameter :: coefficient031 =   0.0_real64
    real(real64), parameter :: coefficient032 = - coefficient030 / ( 31 *  32)
    real(real64), parameter :: coefficient033 =   0.0_real64
    real(real64), parameter :: coefficient034 = - coefficient032 / ( 33 *  34)
    real(real64), parameter :: coefficient035 =   0.0_real64
    real(real64), parameter :: coefficient036 = - coefficient034 / ( 35 *  36)
    real(real64), parameter :: coefficient037 =   0.0_real64
    real(real64), parameter :: coefficient038 = - coefficient036 / ( 37 *  38)
    real(real64), parameter :: coefficient039 =   0.0_real64
    real(real64), parameter :: coefficient040 = - coefficient038 / ( 39 *  40)
    real(real64), parameter :: coefficient041 =   0.0_real64
    real(real64), parameter :: coefficient042 = - coefficient040 / ( 41 *  42)
    real(real64), parameter :: coefficient043 =   0.0_real64
    real(real64), parameter :: coefficient044 = - coefficient042 / ( 43 *  44)
    real(real64), parameter :: coefficient045 =   0.0_real64
    real(real64), parameter :: coefficient046 = - coefficient044 / ( 45 *  46)
    real(real64), parameter :: coefficient047 =   0.0_real64
    real(real64), parameter :: coefficient048 = - coefficient046 / ( 47 *  48)
    real(real64), parameter :: coefficient049 =   0.0_real64
    real(real64), parameter :: coefficient050 = - coefficient048 / ( 49 *  50)
    real(real64), parameter :: coefficient051 =   0.0_real64
    real(real64), parameter :: coefficient052 = - coefficient050 / ( 51 *  52)
    real(real64), parameter :: coefficient053 =   0.0_real64
    real(real64), parameter :: coefficient054 = - coefficient052 / ( 53 *  54)
    real(real64), parameter :: coefficient055 =   0.0_real64
    real(real64), parameter :: coefficient056 = - coefficient054 / ( 55 *  56)
    real(real64), parameter :: coefficient057 =   0.0_real64
    real(real64), parameter :: coefficient058 = - coefficient056 / ( 57 *  58)
    real(real64), parameter :: coefficient059 =   0.0_real64
    real(real64), parameter :: coefficient060 = - coefficient058 / ( 59 *  60)
    real(real64), parameter :: coefficient061 =   0.0_real64
    real(real64), parameter :: coefficient062 = - coefficient060 / ( 61 *  62)
    real(real64), parameter :: coefficient063 =   0.0_real64
    real(real64), parameter :: coefficient064 = - coefficient062 / ( 63 *  64)
    real(real64), parameter :: coefficient065 =   0.0_real64
    real(real64), parameter :: coefficient066 = - coefficient064 / ( 65 *  66)
    real(real64), parameter :: coefficient067 =   0.0_real64
    real(real64), parameter :: coefficient068 = - coefficient066 / ( 67 *  68)
    real(real64), parameter :: coefficient069 =   0.0_real64
    real(real64), parameter :: coefficient070 = - coefficient068 / ( 69 *  70)
    real(real64), parameter :: coefficient071 =   0.0_real64
    real(real64), parameter :: coefficient072 = - coefficient070 / ( 71 *  72)
    real(real64), parameter :: coefficient073 =   0.0_real64
    real(real64), parameter :: coefficient074 = - coefficient072 / ( 73 *  74)
    real(real64), parameter :: coefficient075 =   0.0_real64
    real(real64), parameter :: coefficient076 = - coefficient074 / ( 75 *  76)
    real(real64), parameter :: coefficient077 =   0.0_real64
    real(real64), parameter :: coefficient078 = - coefficient076 / ( 77 *  78)
    real(real64), parameter :: coefficient079 =   0.0_real64
    real(real64), parameter :: coefficient080 = - coefficient078 / ( 79 *  80)
    real(real64), parameter :: coefficient081 =   0.0_real64
    real(real64), parameter :: coefficient082 = - coefficient080 / ( 81 *  82)
    real(real64), parameter :: coefficient083 =   0.0_real64
    real(real64), parameter :: coefficient084 = - coefficient082 / ( 83 *  84)
    real(real64), parameter :: coefficient085 =   0.0_real64
    real(real64), parameter :: coefficient086 = - coefficient084 / ( 85 *  86)
    real(real64), parameter :: coefficient087 =   0.0_real64
    real(real64), parameter :: coefficient088 = - coefficient086 / ( 87 *  88)
    real(real64), parameter :: coefficient089 =   0.0_real64
    real(real64), parameter :: coefficient090 = - coefficient088 / ( 89 *  90)
    real(real64), parameter :: coefficient091 =   0.0_real64
    real(real64), parameter :: coefficient092 = - coefficient090 / ( 91 *  92)
    real(real64), parameter :: coefficient093 =   0.0_real64
    real(real64), parameter :: coefficient094 = - coefficient092 / ( 93 *  94)
    real(real64), parameter :: coefficient095 =   0.0_real64
    real(real64), parameter :: coefficient096 = - coefficient094 / ( 95 *  96)
    real(real64), parameter :: coefficient097 =   0.0_real64
    real(real64), parameter :: coefficient098 = - coefficient096 / ( 97 *  98)
    real(real64), parameter :: coefficient099 =   0.0_real64
    real(real64), parameter :: coefficient100 = - coefficient098 / ( 99 * 100)
    real(real64), parameter :: coefficient101 =   0.0_real64
    real(real64), parameter :: coefficient102 = - coefficient100 / (101 * 102)
    real(real64), parameter :: coefficient103 =   0.0_real64
    real(real64), parameter :: coefficient104 = - coefficient102 / (103 * 104)
    real(real64), parameter :: coefficient105 =   0.0_real64
    real(real64), parameter :: coefficient106 = - coefficient104 / (105 * 106)
    real(real64), parameter :: coefficient107 =   0.0_real64
    real(real64), parameter :: coefficient108 = - coefficient106 / (107 * 108)
    real(real64), parameter :: coefficient109 =   0.0_real64
    real(real64), parameter :: coefficient110 = - coefficient108 / (109 * 110)
    real(real64), parameter :: coefficient111 =   0.0_real64
    real(real64), parameter :: coefficient112 = - coefficient110 / (111 * 112)
    real(real64), parameter :: coefficient113 =   0.0_real64
    real(real64), parameter :: coefficient114 = - coefficient112 / (113 * 114)
    real(real64), parameter :: coefficient115 =   0.0_real64
    real(real64), parameter :: coefficient116 = - coefficient114 / (115 * 116)
    real(real64), parameter :: coefficient117 =   0.0_real64
    real(real64), parameter :: coefficient118 = - coefficient116 / (117 * 118)
    real(real64), parameter :: coefficient119 =   0.0_real64
    real(real64), parameter :: coefficient120 = - coefficient118 / (119 * 120)
    real(real64), parameter :: coefficient121 =   0.0_real64
    real(real64), parameter :: coefficient122 = - coefficient120 / (121 * 122)
    real(real64), parameter :: coefficient123 =   0.0_real64
    real(real64), parameter :: coefficient124 = - coefficient122 / (123 * 124)
    real(real64), parameter :: coefficient125 =   0.0_real64
    real(real64), parameter :: coefficient126 = - coefficient124 / (125 * 126)
    real(real64), parameter :: coefficient127 =   0.0_real64
    real(real64), parameter :: coefficient128 = - coefficient126 / (127 * 128)
    real(real64), parameter :: coefficient129 =   0.0_real64
    real(real64), parameter :: coefficient130 = - coefficient128 / (129 * 130)
    real(real64), parameter :: coefficient131 =   0.0_real64
    real(real64), parameter :: coefficient132 = - coefficient130 / (131 * 132)
    real(real64), parameter :: coefficient133 =   0.0_real64
    real(real64), parameter :: coefficient134 = - coefficient132 / (133 * 134)
    real(real64), parameter :: coefficient135 =   0.0_real64
    real(real64), parameter :: coefficient136 = - coefficient134 / (135 * 136)
    real(real64), parameter :: coefficient137 =   0.0_real64
    real(real64), parameter :: coefficient138 = - coefficient136 / (137 * 138)
    real(real64), parameter :: coefficient139 =   0.0_real64
    real(real64), parameter :: coefficient140 = - coefficient138 / (139 * 140)
    real(real64), parameter :: coefficient141 =   0.0_real64
    real(real64), parameter :: coefficient142 = - coefficient140 / (141 * 142)
    real(real64), parameter :: coefficient143 =   0.0_real64
    real(real64), parameter :: coefficient144 = - coefficient142 / (143 * 144)
    real(real64), parameter :: coefficient145 =   0.0_real64
    real(real64), parameter :: coefficient146 = - coefficient144 / (145 * 146)
    real(real64), parameter :: coefficient147 =   0.0_real64
    real(real64), parameter :: coefficient148 = - coefficient146 / (147 * 148)
    real(real64), parameter :: coefficient149 =   0.0_real64
    real(real64), parameter :: coefficient150 = - coefficient148 / (149 * 150)
    real(real64), parameter :: coefficient151 =   0.0_real64
    real(real64), parameter :: coefficient152 = - coefficient150 / (151 * 152)
    real(real64), parameter :: coefficient153 =   0.0_real64
    real(real64), parameter :: coefficient154 = - coefficient152 / (153 * 154)
    real(real64), parameter :: coefficient155 =   0.0_real64
    real(real64), parameter :: coefficient156 = - coefficient154 / (155 * 156)
    real(real64), parameter :: coefficient157 =   0.0_real64
    real(real64), parameter :: coefficient158 = - coefficient156 / (157 * 158)
    real(real64), parameter :: coefficient159 =   0.0_real64
    real(real64), parameter :: coefficient160 = - coefficient158 / (159 * 160)
    real(real64), parameter :: coefficient161 =   0.0_real64
    real(real64), parameter :: coefficient162 = - coefficient160 / (161 * 162)
    real(real64), parameter :: coefficient163 =   0.0_real64
    real(real64), parameter :: coefficient164 = - coefficient162 / (163 * 164)
    real(real64), parameter :: coefficient165 =   0.0_real64
    real(real64), parameter :: coefficient166 = - coefficient164 / (165 * 166)
    real(real64), parameter :: coefficient167 =   0.0_real64
    real(real64), parameter :: coefficient168 = - coefficient166 / (167 * 168)
    real(real64), parameter :: coefficient169 =   0.0_real64
    real(real64), parameter :: coefficient170 = - coefficient168 / (169 * 170)
    real(real64), parameter :: coefficient171 =   0.0_real64
    real(real64), parameter :: coefficient172 = - coefficient170 / (171 * 172)
    real(real64), parameter :: coefficient173 =   0.0_real64
    real(real64), parameter :: coefficient174 = - coefficient172 / (173 * 174)
    real(real64), parameter :: coefficient175 =   0.0_real64
    real(real64), parameter :: coefficient176 = - coefficient174 / (175 * 176)


    contains


    module procedure taylor_series_cos_000_real64

        res = 1.0_real64

    end procedure taylor_series_cos_000_real64


    module procedure taylor_series_cos_001_real64

        res = coefficient000 + x * coefficient001

    end procedure taylor_series_cos_001_real64


    module procedure taylor_series_cos_002_real64

        res = coefficient001 + x * coefficient002
        res = coefficient000 + x * res

    end procedure taylor_series_cos_002_real64


    module procedure taylor_series_cos_003_real64

        res = coefficient002 + x * coefficient003
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_003_real64


    module procedure taylor_series_cos_004_real64

        res = coefficient003 + x * coefficient004
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_004_real64


    module procedure taylor_series_cos_005_real64

        res = coefficient004 + x * coefficient005
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_005_real64


    module procedure taylor_series_cos_006_real64

        res = coefficient005 + x * coefficient006
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_006_real64


    module procedure taylor_series_cos_007_real64

        res = coefficient006 + x * coefficient007
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_007_real64


    module procedure taylor_series_cos_008_real64

        res = coefficient007 + x * coefficient008
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_008_real64


    module procedure taylor_series_cos_009_real64

        res = coefficient008 + x * coefficient009
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_009_real64


    module procedure taylor_series_cos_010_real64

        res = coefficient009 + x * coefficient010
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_010_real64


    module procedure taylor_series_cos_011_real64

        res = coefficient010 + x * coefficient011
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_011_real64


    module procedure taylor_series_cos_012_real64

        res = coefficient011 + x * coefficient012
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_012_real64


    module procedure taylor_series_cos_013_real64

        res = coefficient012 + x * coefficient013
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_013_real64


    module procedure taylor_series_cos_014_real64

        res = coefficient013 + x * coefficient014
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_014_real64


    module procedure taylor_series_cos_015_real64

        res = coefficient014 + x * coefficient015
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_015_real64


    module procedure taylor_series_cos_016_real64

        res = coefficient015 + x * coefficient016
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_016_real64


    module procedure taylor_series_cos_017_real64

        res = coefficient016 + x * coefficient017
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_017_real64


    module procedure taylor_series_cos_018_real64

        res = coefficient017 + x * coefficient018
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_018_real64


    module procedure taylor_series_cos_019_real64

        res = coefficient018 + x * coefficient019
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_019_real64


    module procedure taylor_series_cos_020_real64

        res = coefficient019 + x * coefficient020
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_020_real64


    module procedure taylor_series_cos_021_real64

        res = coefficient020 + x * coefficient021
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_021_real64


    module procedure taylor_series_cos_022_real64

        res = coefficient021 + x * coefficient022
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_022_real64


    module procedure taylor_series_cos_023_real64

        res = coefficient022 + x * coefficient023
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_023_real64


    module procedure taylor_series_cos_024_real64

        res = coefficient023 + x * coefficient024
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_024_real64


    module procedure taylor_series_cos_025_real64

        res = coefficient024 + x * coefficient025
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_025_real64


    module procedure taylor_series_cos_026_real64

        res = coefficient025 + x * coefficient026
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_026_real64


    module procedure taylor_series_cos_027_real64

        res = coefficient026 + x * coefficient027
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_027_real64


    module procedure taylor_series_cos_028_real64

        res = coefficient027 + x * coefficient028
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_028_real64


    module procedure taylor_series_cos_029_real64

        res = coefficient028 + x * coefficient029
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_029_real64


    module procedure taylor_series_cos_030_real64

        res = coefficient029 + x * coefficient030
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_030_real64


    module procedure taylor_series_cos_031_real64

        res = coefficient030 + x * coefficient031
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_031_real64


    module procedure taylor_series_cos_032_real64

        res = coefficient031 + x * coefficient032
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_032_real64


    module procedure taylor_series_cos_033_real64

        res = coefficient032 + x * coefficient033
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_033_real64


    module procedure taylor_series_cos_034_real64

        res = coefficient033 + x * coefficient034
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_034_real64


    module procedure taylor_series_cos_035_real64

        res = coefficient034 + x * coefficient035
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_035_real64


    module procedure taylor_series_cos_036_real64

        res = coefficient035 + x * coefficient036
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_036_real64


    module procedure taylor_series_cos_037_real64

        res = coefficient036 + x * coefficient037
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_037_real64


    module procedure taylor_series_cos_038_real64

        res = coefficient037 + x * coefficient038
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_038_real64


    module procedure taylor_series_cos_039_real64

        res = coefficient038 + x * coefficient039
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_039_real64


    module procedure taylor_series_cos_040_real64

        res = coefficient039 + x * coefficient040
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_040_real64


    module procedure taylor_series_cos_041_real64

        res = coefficient040 + x * coefficient041
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_041_real64


    module procedure taylor_series_cos_042_real64

        res = coefficient041 + x * coefficient042
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_042_real64


    module procedure taylor_series_cos_043_real64

        res = coefficient042 + x * coefficient043
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_043_real64


    module procedure taylor_series_cos_044_real64

        res = coefficient043 + x * coefficient044
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_044_real64


    module procedure taylor_series_cos_045_real64

        res = coefficient044 + x * coefficient045
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_045_real64


    module procedure taylor_series_cos_046_real64

        res = coefficient045 + x * coefficient046
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_046_real64


    module procedure taylor_series_cos_047_real64

        res = coefficient046 + x * coefficient047
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_047_real64


    module procedure taylor_series_cos_048_real64

        res = coefficient047 + x * coefficient048
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_048_real64


    module procedure taylor_series_cos_049_real64

        res = coefficient048 + x * coefficient049
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_049_real64


    module procedure taylor_series_cos_050_real64

        res = coefficient049 + x * coefficient050
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_050_real64


    module procedure taylor_series_cos_051_real64

        res = coefficient050 + x * coefficient051
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_051_real64


    module procedure taylor_series_cos_052_real64

        res = coefficient051 + x * coefficient052
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_052_real64


    module procedure taylor_series_cos_053_real64

        res = coefficient052 + x * coefficient053
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_053_real64


    module procedure taylor_series_cos_054_real64

        res = coefficient053 + x * coefficient054
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_054_real64


    module procedure taylor_series_cos_055_real64

        res = coefficient054 + x * coefficient055
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_055_real64


    module procedure taylor_series_cos_056_real64

        res = coefficient055 + x * coefficient056
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_056_real64


    module procedure taylor_series_cos_057_real64

        res = coefficient056 + x * coefficient057
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_057_real64


    module procedure taylor_series_cos_058_real64

        res = coefficient057 + x * coefficient058
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_058_real64


    module procedure taylor_series_cos_059_real64

        res = coefficient058 + x * coefficient059
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_059_real64


    module procedure taylor_series_cos_060_real64

        res = coefficient059 + x * coefficient060
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_060_real64


    module procedure taylor_series_cos_061_real64

        res = coefficient060 + x * coefficient061
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_061_real64


    module procedure taylor_series_cos_062_real64

        res = coefficient061 + x * coefficient062
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_062_real64


    module procedure taylor_series_cos_063_real64

        res = coefficient062 + x * coefficient063
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_063_real64


    module procedure taylor_series_cos_064_real64

        res = coefficient063 + x * coefficient064
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_064_real64


    module procedure taylor_series_cos_065_real64

        res = coefficient064 + x * coefficient065
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_065_real64


    module procedure taylor_series_cos_066_real64

        res = coefficient065 + x * coefficient066
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_066_real64


    module procedure taylor_series_cos_067_real64

        res = coefficient066 + x * coefficient067
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_067_real64


    module procedure taylor_series_cos_068_real64

        res = coefficient067 + x * coefficient068
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_068_real64


    module procedure taylor_series_cos_069_real64

        res = coefficient068 + x * coefficient069
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_069_real64


    module procedure taylor_series_cos_070_real64

        res = coefficient069 + x * coefficient070
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_070_real64


    module procedure taylor_series_cos_071_real64

        res = coefficient070 + x * coefficient071
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_071_real64


    module procedure taylor_series_cos_072_real64

        res = coefficient071 + x * coefficient072
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_072_real64


    module procedure taylor_series_cos_073_real64

        res = coefficient072 + x * coefficient073
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_073_real64


    module procedure taylor_series_cos_074_real64

        res = coefficient073 + x * coefficient074
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_074_real64


    module procedure taylor_series_cos_075_real64

        res = coefficient074 + x * coefficient075
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_075_real64


    module procedure taylor_series_cos_076_real64

        res = coefficient075 + x * coefficient076
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_076_real64


    module procedure taylor_series_cos_077_real64

        res = coefficient076 + x * coefficient077
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_077_real64


    module procedure taylor_series_cos_078_real64

        res = coefficient077 + x * coefficient078
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_078_real64


    module procedure taylor_series_cos_079_real64

        res = coefficient078 + x * coefficient079
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_079_real64


    module procedure taylor_series_cos_080_real64

        res = coefficient079 + x * coefficient080
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_080_real64


    module procedure taylor_series_cos_081_real64

        res = coefficient080 + x * coefficient081
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_081_real64


    module procedure taylor_series_cos_082_real64

        res = coefficient081 + x * coefficient082
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_082_real64


    module procedure taylor_series_cos_083_real64

        res = coefficient082 + x * coefficient083
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_083_real64


    module procedure taylor_series_cos_084_real64

        res = coefficient083 + x * coefficient084
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_084_real64


    module procedure taylor_series_cos_085_real64

        res = coefficient084 + x * coefficient085
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_085_real64


    module procedure taylor_series_cos_086_real64

        res = coefficient085 + x * coefficient086
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_086_real64


    module procedure taylor_series_cos_087_real64

        res = coefficient086 + x * coefficient087
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_087_real64


    module procedure taylor_series_cos_088_real64

        res = coefficient087 + x * coefficient088
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_088_real64


    module procedure taylor_series_cos_089_real64

        res = coefficient088 + x * coefficient089
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_089_real64


    module procedure taylor_series_cos_090_real64

        res = coefficient089 + x * coefficient090
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_090_real64


    module procedure taylor_series_cos_091_real64

        res = coefficient090 + x * coefficient091
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_091_real64


    module procedure taylor_series_cos_092_real64

        res = coefficient091 + x * coefficient092
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_092_real64


    module procedure taylor_series_cos_093_real64

        res = coefficient092 + x * coefficient093
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_093_real64


    module procedure taylor_series_cos_094_real64

        res = coefficient093 + x * coefficient094
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_094_real64


    module procedure taylor_series_cos_095_real64

        res = coefficient094 + x * coefficient095
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_095_real64


    module procedure taylor_series_cos_096_real64

        res = coefficient095 + x * coefficient096
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_096_real64


    module procedure taylor_series_cos_097_real64

        res = coefficient096 + x * coefficient097
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_097_real64


    module procedure taylor_series_cos_098_real64

        res = coefficient097 + x * coefficient098
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_098_real64


    module procedure taylor_series_cos_099_real64

        res = coefficient098 + x * coefficient099
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_099_real64


    module procedure taylor_series_cos_100_real64

        res = coefficient099 + x * coefficient100
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_100_real64


    module procedure taylor_series_cos_101_real64

        res = coefficient100 + x * coefficient101
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_101_real64


    module procedure taylor_series_cos_102_real64

        res = coefficient101 + x * coefficient102
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_102_real64


    module procedure taylor_series_cos_103_real64

        res = coefficient102 + x * coefficient103
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_103_real64


    module procedure taylor_series_cos_104_real64

        res = coefficient103 + x * coefficient104
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_104_real64


    module procedure taylor_series_cos_105_real64

        res = coefficient104 + x * coefficient105
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_105_real64


    module procedure taylor_series_cos_106_real64

        res = coefficient105 + x * coefficient106
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_106_real64


    module procedure taylor_series_cos_107_real64

        res = coefficient106 + x * coefficient107
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_107_real64


    module procedure taylor_series_cos_108_real64

        res = coefficient107 + x * coefficient108
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_108_real64


    module procedure taylor_series_cos_109_real64

        res = coefficient108 + x * coefficient109
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_109_real64


    module procedure taylor_series_cos_110_real64

        res = coefficient109 + x * coefficient110
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_110_real64


    module procedure taylor_series_cos_111_real64

        res = coefficient110 + x * coefficient111
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_111_real64


    module procedure taylor_series_cos_112_real64

        res = coefficient111 + x * coefficient112
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_112_real64


    module procedure taylor_series_cos_113_real64

        res = coefficient112 + x * coefficient113
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_113_real64


    module procedure taylor_series_cos_114_real64

        res = coefficient113 + x * coefficient114
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_114_real64


    module procedure taylor_series_cos_115_real64

        res = coefficient114 + x * coefficient115
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_115_real64


    module procedure taylor_series_cos_116_real64

        res = coefficient115 + x * coefficient116
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_116_real64


    module procedure taylor_series_cos_117_real64

        res = coefficient116 + x * coefficient117
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_117_real64


    module procedure taylor_series_cos_118_real64

        res = coefficient117 + x * coefficient118
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_118_real64


    module procedure taylor_series_cos_119_real64

        res = coefficient118 + x * coefficient119
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_119_real64


    module procedure taylor_series_cos_120_real64

        res = coefficient119 + x * coefficient120
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_120_real64


    module procedure taylor_series_cos_121_real64

        res = coefficient120 + x * coefficient121
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_121_real64


    module procedure taylor_series_cos_122_real64

        res = coefficient121 + x * coefficient122
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_122_real64


    module procedure taylor_series_cos_123_real64

        res = coefficient122 + x * coefficient123
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_123_real64


    module procedure taylor_series_cos_124_real64

        res = coefficient123 + x * coefficient124
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_124_real64


    module procedure taylor_series_cos_125_real64

        res = coefficient124 + x * coefficient125
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_125_real64


    module procedure taylor_series_cos_126_real64

        res = coefficient125 + x * coefficient126
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_126_real64


    module procedure taylor_series_cos_127_real64

        res = coefficient126 + x * coefficient127
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_127_real64


    module procedure taylor_series_cos_128_real64

        res = coefficient127 + x * coefficient128
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_128_real64


    module procedure taylor_series_cos_129_real64

        res = coefficient128 + x * coefficient129
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_129_real64


    module procedure taylor_series_cos_130_real64

        res = coefficient129 + x * coefficient130
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_130_real64


    module procedure taylor_series_cos_131_real64

        res = coefficient130 + x * coefficient131
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_131_real64


    module procedure taylor_series_cos_132_real64

        res = coefficient131 + x * coefficient132
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_132_real64


    module procedure taylor_series_cos_133_real64

        res = coefficient132 + x * coefficient133
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_133_real64


    module procedure taylor_series_cos_134_real64

        res = coefficient133 + x * coefficient134
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_134_real64


    module procedure taylor_series_cos_135_real64

        res = coefficient134 + x * coefficient135
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_135_real64


    module procedure taylor_series_cos_136_real64

        res = coefficient135 + x * coefficient136
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_136_real64


    module procedure taylor_series_cos_137_real64

        res = coefficient136 + x * coefficient137
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_137_real64


    module procedure taylor_series_cos_138_real64

        res = coefficient137 + x * coefficient138
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_138_real64


    module procedure taylor_series_cos_139_real64

        res = coefficient138 + x * coefficient139
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_139_real64


    module procedure taylor_series_cos_140_real64

        res = coefficient139 + x * coefficient140
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_140_real64


    module procedure taylor_series_cos_141_real64

        res = coefficient140 + x * coefficient141
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_141_real64


    module procedure taylor_series_cos_142_real64

        res = coefficient141 + x * coefficient142
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_142_real64


    module procedure taylor_series_cos_143_real64

        res = coefficient142 + x * coefficient143
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_143_real64


    module procedure taylor_series_cos_144_real64

        res = coefficient143 + x * coefficient144
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_144_real64


    module procedure taylor_series_cos_145_real64

        res = coefficient144 + x * coefficient145
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_145_real64


    module procedure taylor_series_cos_146_real64

        res = coefficient145 + x * coefficient146
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_146_real64


    module procedure taylor_series_cos_147_real64

        res = coefficient146 + x * coefficient147
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_147_real64


    module procedure taylor_series_cos_148_real64

        res = coefficient147 + x * coefficient148
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_148_real64


    module procedure taylor_series_cos_149_real64

        res = coefficient148 + x * coefficient149
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_149_real64


    module procedure taylor_series_cos_150_real64

        res = coefficient149 + x * coefficient150
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_150_real64


    module procedure taylor_series_cos_151_real64

        res = coefficient150 + x * coefficient151
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_151_real64


    module procedure taylor_series_cos_152_real64

        res = coefficient151 + x * coefficient152
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_152_real64


    module procedure taylor_series_cos_153_real64

        res = coefficient152 + x * coefficient153
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_153_real64


    module procedure taylor_series_cos_154_real64

        res = coefficient153 + x * coefficient154
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_154_real64


    module procedure taylor_series_cos_155_real64

        res = coefficient154 + x * coefficient155
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_155_real64


    module procedure taylor_series_cos_156_real64

        res = coefficient155 + x * coefficient156
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_156_real64


    module procedure taylor_series_cos_157_real64

        res = coefficient156 + x * coefficient157
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_157_real64


    module procedure taylor_series_cos_158_real64

        res = coefficient157 + x * coefficient158
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_158_real64


    module procedure taylor_series_cos_159_real64

        res = coefficient158 + x * coefficient159
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_159_real64


    module procedure taylor_series_cos_160_real64

        res = coefficient159 + x * coefficient160
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_160_real64


    module procedure taylor_series_cos_161_real64

        res = coefficient160 + x * coefficient161
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_161_real64


    module procedure taylor_series_cos_162_real64

        res = coefficient161 + x * coefficient162
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_162_real64


    module procedure taylor_series_cos_163_real64

        res = coefficient162 + x * coefficient163
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_163_real64


    module procedure taylor_series_cos_164_real64

        res = coefficient163 + x * coefficient164
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_164_real64


    module procedure taylor_series_cos_165_real64

        res = coefficient164 + x * coefficient165
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_165_real64


    module procedure taylor_series_cos_166_real64

        res = coefficient165 + x * coefficient166
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_166_real64


    module procedure taylor_series_cos_167_real64

        res = coefficient166 + x * coefficient167
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_167_real64


    module procedure taylor_series_cos_168_real64

        res = coefficient167 + x * coefficient168
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_168_real64


    module procedure taylor_series_cos_169_real64

        res = coefficient168 + x * coefficient169
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_169_real64


    module procedure taylor_series_cos_170_real64

        res = coefficient169 + x * coefficient170
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_170_real64


    module procedure taylor_series_cos_171_real64

        res = coefficient170 + x * coefficient171
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_171_real64


    module procedure taylor_series_cos_172_real64

        res = coefficient171 + x * coefficient172
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_172_real64


    module procedure taylor_series_cos_173_real64

        res = coefficient172 + x * coefficient173
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_173_real64


    module procedure taylor_series_cos_174_real64

        res = coefficient173 + x * coefficient174
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_174_real64


    module procedure taylor_series_cos_175_real64

        res = coefficient174 + x * coefficient175
        res = coefficient173 + x * res
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_175_real64


    module procedure taylor_series_cos_176_real64

        res = coefficient175 + x * coefficient176
        res = coefficient174 + x * res
        res = coefficient173 + x * res
        res = coefficient172 + x * res
        res = coefficient171 + x * res
        res = coefficient170 + x * res
        res = coefficient169 + x * res
        res = coefficient168 + x * res
        res = coefficient167 + x * res
        res = coefficient166 + x * res
        res = coefficient165 + x * res
        res = coefficient164 + x * res
        res = coefficient163 + x * res
        res = coefficient162 + x * res
        res = coefficient161 + x * res
        res = coefficient160 + x * res
        res = coefficient159 + x * res
        res = coefficient158 + x * res
        res = coefficient157 + x * res
        res = coefficient156 + x * res
        res = coefficient155 + x * res
        res = coefficient154 + x * res
        res = coefficient153 + x * res
        res = coefficient152 + x * res
        res = coefficient151 + x * res
        res = coefficient150 + x * res
        res = coefficient149 + x * res
        res = coefficient148 + x * res
        res = coefficient147 + x * res
        res = coefficient146 + x * res
        res = coefficient145 + x * res
        res = coefficient144 + x * res
        res = coefficient143 + x * res
        res = coefficient142 + x * res
        res = coefficient141 + x * res
        res = coefficient140 + x * res
        res = coefficient139 + x * res
        res = coefficient138 + x * res
        res = coefficient137 + x * res
        res = coefficient136 + x * res
        res = coefficient135 + x * res
        res = coefficient134 + x * res
        res = coefficient133 + x * res
        res = coefficient132 + x * res
        res = coefficient131 + x * res
        res = coefficient130 + x * res
        res = coefficient129 + x * res
        res = coefficient128 + x * res
        res = coefficient127 + x * res
        res = coefficient126 + x * res
        res = coefficient125 + x * res
        res = coefficient124 + x * res
        res = coefficient123 + x * res
        res = coefficient122 + x * res
        res = coefficient121 + x * res
        res = coefficient120 + x * res
        res = coefficient119 + x * res
        res = coefficient118 + x * res
        res = coefficient117 + x * res
        res = coefficient116 + x * res
        res = coefficient115 + x * res
        res = coefficient114 + x * res
        res = coefficient113 + x * res
        res = coefficient112 + x * res
        res = coefficient111 + x * res
        res = coefficient110 + x * res
        res = coefficient109 + x * res
        res = coefficient108 + x * res
        res = coefficient107 + x * res
        res = coefficient106 + x * res
        res = coefficient105 + x * res
        res = coefficient104 + x * res
        res = coefficient103 + x * res
        res = coefficient102 + x * res
        res = coefficient101 + x * res
        res = coefficient100 + x * res
        res = coefficient099 + x * res
        res = coefficient098 + x * res
        res = coefficient097 + x * res
        res = coefficient096 + x * res
        res = coefficient095 + x * res
        res = coefficient094 + x * res
        res = coefficient093 + x * res
        res = coefficient092 + x * res
        res = coefficient091 + x * res
        res = coefficient090 + x * res
        res = coefficient089 + x * res
        res = coefficient088 + x * res
        res = coefficient087 + x * res
        res = coefficient086 + x * res
        res = coefficient085 + x * res
        res = coefficient084 + x * res
        res = coefficient083 + x * res
        res = coefficient082 + x * res
        res = coefficient081 + x * res
        res = coefficient080 + x * res
        res = coefficient079 + x * res
        res = coefficient078 + x * res
        res = coefficient077 + x * res
        res = coefficient076 + x * res
        res = coefficient075 + x * res
        res = coefficient074 + x * res
        res = coefficient073 + x * res
        res = coefficient072 + x * res
        res = coefficient071 + x * res
        res = coefficient070 + x * res
        res = coefficient069 + x * res
        res = coefficient068 + x * res
        res = coefficient067 + x * res
        res = coefficient066 + x * res
        res = coefficient065 + x * res
        res = coefficient064 + x * res
        res = coefficient063 + x * res
        res = coefficient062 + x * res
        res = coefficient061 + x * res
        res = coefficient060 + x * res
        res = coefficient059 + x * res
        res = coefficient058 + x * res
        res = coefficient057 + x * res
        res = coefficient056 + x * res
        res = coefficient055 + x * res
        res = coefficient054 + x * res
        res = coefficient053 + x * res
        res = coefficient052 + x * res
        res = coefficient051 + x * res
        res = coefficient050 + x * res
        res = coefficient049 + x * res
        res = coefficient048 + x * res
        res = coefficient047 + x * res
        res = coefficient046 + x * res
        res = coefficient045 + x * res
        res = coefficient044 + x * res
        res = coefficient043 + x * res
        res = coefficient042 + x * res
        res = coefficient041 + x * res
        res = coefficient040 + x * res
        res = coefficient039 + x * res
        res = coefficient038 + x * res
        res = coefficient037 + x * res
        res = coefficient036 + x * res
        res = coefficient035 + x * res
        res = coefficient034 + x * res
        res = coefficient033 + x * res
        res = coefficient032 + x * res
        res = coefficient031 + x * res
        res = coefficient030 + x * res
        res = coefficient029 + x * res
        res = coefficient028 + x * res
        res = coefficient027 + x * res
        res = coefficient026 + x * res
        res = coefficient025 + x * res
        res = coefficient024 + x * res
        res = coefficient023 + x * res
        res = coefficient022 + x * res
        res = coefficient021 + x * res
        res = coefficient020 + x * res
        res = coefficient019 + x * res
        res = coefficient018 + x * res
        res = coefficient017 + x * res
        res = coefficient016 + x * res
        res = coefficient015 + x * res
        res = coefficient014 + x * res
        res = coefficient013 + x * res
        res = coefficient012 + x * res
        res = coefficient011 + x * res
        res = coefficient010 + x * res
        res = coefficient009 + x * res
        res = coefficient008 + x * res
        res = coefficient007 + x * res
        res = coefficient006 + x * res
        res = coefficient005 + x * res
        res = coefficient004 + x * res
        res = coefficient003 + x * res
        res = coefficient002 + x * res
        res = coefficient001 + x * res
        res = coefficient000 + x * res

    end procedure taylor_series_cos_176_real64

end submodule imp_taylor_series_cos_real64